#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
use lib qw(./lib/);
use Template;
use MIME::Base64;

my $q = CGI->new();
print $q->header(-charset=>"shiftjis");
my $param = {
    title => "Template Tool Kit for Twitter",
    up    => encode_base64("user:pass")
};
my $tmpl  = Template->new({INCLUDE_PATH => "./tmpl"});
$tmpl->process('index.tmpl', $param);
